EnigmA Amiga Run 1998 July/EnigmA AMIGA RUN 29 (1998)(G.R. Edizioni)(IT)[!][issue 1998-07 & 08].iso/earcd/utils/datatypes/akmuiprefs.lha/akMUIPrefs/Install

Text File | 1998-03-03 | 2KB | 131 lines

;$VER:akMUIPrefs Install 43.2

(set #gif 0)
(set #jfif 1)
(set #ljpg 2)
(set #png 3)
(set #svg 4)
(set #new 1)

(message "This will install the MUI replacements for the akXXXPrefs to your system.\nMake sure you have deleted the Wizard version of the old prefs.")

(set #prefs-dir
    (askdir
        (prompt "Where do you store your preferences for datatypes ?")
        (help @askdir-help)
        (default "SYS:Prefs/DataTypes")
    )
)
(set #choice
    (askoptions
        (prompt "What akMUIPrefs do you like to install ?")
        (help @askoptions-help)
        (choices "GIF" "JFIF" "LJPG" "PNG" "SVG")
    )
)
(set #icon
    (askchoice
        (prompt "What type of icons do you want to use ?")
        (help @askchoice-help)
        (choices "MWB style (8 colors)" "NewIcons style")
    )
)

(if (IN #choice #gif)
    (
    (copyfiles
        (source "Prefs/akGIFPrefs")
        (dest #prefs-dir)
        (infos)
    )
    )
)
(if (IN #choice #jfif)
    (
    (copyfiles
        (source "Prefs/akJFIFPrefs")
        (dest #prefs-dir)
        (infos)
    )
    )
)
(if (IN #choice #ljpg)
    (
    (copyfiles
        (source "Prefs/akLJPGPrefs")
        (dest #prefs-dir)
        (infos)
    )
    )
)
(if (IN #choice #png)
    (
    (copyfiles
        (source "Prefs/akPNGPrefs")
        (dest #prefs-dir)
        (infos)
    )
    )
)
(if (IN #choice #svg)
    (
    (copyfiles
        (source "Prefs/akSVGPrefs")
        (dest #prefs-dir)
        (infos)
    )
    )
)
(if (= #icon #new)
    (
    (if (IN #choice #gif)
        (
        (copyfiles
            (source "NewIcons/Tool.info")
            (dest #prefs-dir)
            (newname "akGIFPrefs.info")
        )
        )
    )
    (if (IN #choice #jfif)
        (
        (copyfiles
            (source "NewIcons/Tool.info")
            (dest #prefs-dir)
            (newname "akJFIFPrefs.info")
        )
        )
    )
    (if (IN #choice #ljpg)
        (
        (copyfiles
            (source "NewIcons/Tool.info")
            (dest #prefs-dir)
            (newname "akLJPGPrefs.info")
        )
        )
    )
    (if (IN #choice #png)
        (
        (copyfiles
            (source "NewIcons/Tool.info")
            (dest #prefs-dir)
            (newname "akPNGPrefs.info")
        )
        )
    )
    (if (IN #choice #svg)
        (
        (copyfiles
            (source "NewIcons/Tool.info")
            (dest #prefs-dir)
            (newname "akSVGPrefs.info")
        )
        )
    )
    )
)

(set @default-dest #prefs-dir)